home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic2 < prev    next >
Encoding:
Text File  |  1997-01-11  |  241 b   |  29 lines
  1. #LAPLACE 1
  2. #->
  3. include("physic.lh")
  4. #<-
  5. #->
  6. k=my_0*c_0^2/(4*pi)
  7. #<-
  8. #->
  9. E(r)=3/5*k*q_e^2/r
  10. #<-
  11. #->
  12. const(r)
  13. #<-
  14. #->
  15. a=eq(E(r) , m_e * c_0^2)
  16. #<-
  17. #->
  18. a=a*(r/m_e/c_0^2)
  19. #<-
  20. #->
  21. r=eqleft(a)
  22. #<-
  23. #->
  24. eval(r)
  25. #<-
  26. #->
  27. r/(my_0*e_0^2/(4*pi*m_e))
  28. #<-
  29.